home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO090.dsk / MACRO.UPDATE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  614b  |  7 lines
  1. 10  PRINT  CHR$(4)"pr#3"
  2. 15  PRINT "This program will move the macros out of old config files into new config files.Both the old and new file must exist. It will overwrite any macros present in   the new config file, so be sure that it is empty."
  3. 20  INPUT "Source file:";IN$: INPUT "Destination file (must exist):";OU$
  4. 30 D$ =  CHR$(4): PRINT D$"bload"IN$",tvar,a$2000": PRINT D$"bload"OU$",tvar,a$4000"
  5. 40 S =  PEEK(8203) + PEEK(8204) *256:E =  PEEK(8205) + PEEK(8206) *256:D =  PEEK(16395) + PEEK(16396) *256
  6. 50  FOR I = S TO E -1: POKE D +I -S +16384, PEEK(I +8192): NEXT I
  7. 60  PRINT D$"bsave"OU$",a$4000,tvar"